Analysis of COVID-19 Data for the State Of Ohio

Disclaimer:

• This is a personel project,
• I am not a employee of the state of Ohio.
• I am not employed in either the medical or data sceince fields.

Data Source: NY Times

• GitHub: https://github.com/nytimes/covid-19-data.git

Ohio Totals for Cases,Deaths by Date (Previous 30 Days)

STATESDAILY <- dbGetQuery(db, " SELECT * FROM STATESDAILY;") 

COUNTYDAILY <- dbGetQuery(db, "SELECT * FROM COUNTYDAILY;")

gg1 <- STATESDAILY %>% filter(date >= Sys.Date() -30) %>% ggplot() + 
  geom_col(aes(x=date,y=new_cases,fill=new_cases)) +
      labs(title="Ohio Cases by Date") +
     theme(axis.text.x = element_text(angle = 45)) 
#
#  geom_rect(data=STATESDAILY,aes(xmin=max(date) -10,xmax=max(date) -15,ymin=min(new_cases),ymax=max(new_cases)), alpha= 0.01,fill="grey")

## Warning: Removed 49 rows containing missing values (position_stack).

Ohio Accumulated Totals for Cases,Deaths by Date and County